home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_152_Menu.Font < prev    next >
Encoding:
Text File  |  1990-03-23  |  894 b   |  51 lines
  1. /* %filename% */
  2. /* Created %date% %time% by AppMaker */
  3.  
  4. %If lang = MPW%
  5. #include <Types.h>
  6. #include <Quickdraw.h>
  7. #include <Controls.h>
  8. #include <Dialogs.h>
  9. #include <Events.h>
  10. #include <Lists.h>
  11. #include <Menus.h>
  12. #include <TextEdit.h>
  13. #include <Fonts.h>
  14.  
  15. %end if%
  16. #include "Globals.h"
  17. #include "ResourceDefs.h"
  18. #include "Miscellany.h"
  19. %for each menuItem gen includeDialog%
  20.  
  21. #include "%unitname%.h"
  22.  
  23. #define nil            0L
  24.  
  25. short            nrFonts;
  26. %If lang = MPW%
  27.  
  28. #pragma segment %unitname% 
  29. %end if%
  30.  
  31. /*----------*/
  32. void Init%MenuName%M ()
  33. {
  34.     nrFonts = CountMItems (FontMenu);
  35. } /*Init%MenuName%M*/
  36.  
  37. %for each menuitem gen doItem%
  38. /*----------*/
  39. void Choose%MenuName% (itemNr)
  40. short            itemNr;
  41. {
  42.     Str255            fontName;
  43.     short            fontNum;
  44.  
  45.     DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);
  46.     GetItem (%menuName%Menu, itemNr, fontName);
  47.     GetFNum (fontName, &fontNum);
  48. } /*Choose%MenuName%*/
  49.  
  50. /* %unitname% */
  51.